home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
PROGASIC
/
BASFILES.LZH
/
CHKFUNC.BAS
< prev
next >
Wrap
BASIC Source File
|
1988-09-10
|
459b
|
25 lines
'$INCLUDE:'QBTOOLS.INC'
'' '$INCLUDE: 'qbtools2.inc'
'' DECLARE FUNCTION CheckFunction% (ch%)
' Check Function Key
'
' 1-10 = Normal Function Keys
' 11-20 = Shift Function Keys
' 21-30 = Ctrl Function Keys
' 31-40 = ALT Function Keys
'
FUNCTION CheckFunction% (ch%)
IF ch% > 58 AND ch% < 69 THEN
CheckFunction% = ch% - 58
END IF
IF ch% > 83 AND ch% < 114 THEN
CheckFunction% = ch% - 73
END IF
END FUNCTION